Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbpictxt.dxr/00006_Init code.ls

Text File | 2000-01-27 | 1.7 KB | 45 lines

global gDBPicttextVarList

on init windowTitle, mediaName
  if voidp(gDBPicttextVarList) then
    gDBPicttextVarList = [:]
  end if
  register(xtra("PrintOMatic"), "PMAT155-212-06011")
  member("title f", 1).text = windowTitle
  if the machineType = 256 then
    set the textHeight of member "title f" to 14
  end if
  member("print title f", 1).text = windowTitle
  member("media f", 1).text = mediaName
  xProp = GetObjProp()
  addProp(gDBPicttextVarList, xProp, new(script("DB Pict Text Var")))
  MyObj = getaProp(gDBPicttextVarList, GetObjProp())
  TextMemberNum = FindMemberNum(mediaName)
  SetTextMemberNum(MyObj, TextMemberNum)
  PictMemberNum = TextMemberNum + 1
  SetArtMember(MyObj, PictMemberNum)
  if (TextMemberNum = -1) or (PictMemberNum = -1) then
    alert("Document not found! mediaName=" & QUOTE & mediaName & QUOTE)
    CloseMIAW()
  end if
  l = 20
  t = 40
  SetPictRect(MyObj, rect(l, t, l + member(PictMemberNum).width, t + member(PictMemberNum).height))
  setTitle(MyObj, windowTitle)
  SetSpriteList(MyObj, [#title: 5, #Art: 6, #text: 10, #VBed: 16, #NArrow: 17, #SArrow: 18, #VThumb: 19, #CopyButton: 21, #PrintButton: 22, #SaveButton: 23, #closeBox: 24, #MaxMinBox: 25, #SaveDialog: 27, #SaveButton1: 28, #SaveButton2: 29, #SaveButton3: 30, #SaveButton4: 31])
  SetBorderRect(MyObj, [rect(0, 0, 464, 268), rect(0, 0, 640, 411)])
  SetTextRect(MyObj, [rect(l, t, 460, 264), rect(l, t, 623, 403)])
end

on GetObjProp
  return member("media f", "Internal").text
end

on FindMemberNum mediaName
  xMemberNum = the number of member mediaName of castLib "Update.cst"
  if xMemberNum = -1 then
    xMemberNum = the number of member mediaName of castLib "dbpictxt.cst"
  end if
  return xMemberNum
end